************80
ALPHA_MEASURE determines the triangulated pointset quality measure ALPHA.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=4) | :: | n | ||||
| real(kind=8) | :: | z(2,n) | ||||
| integer(kind=4) | :: | triangle_order | ||||
| integer(kind=4) | :: | triangle_num | ||||
| integer(kind=4) | :: | triangle_node(triangle_order,triangle_num) | ||||
| real(kind=8) | :: | alpha_min | ||||
| real(kind=8) | :: | alpha_ave | ||||
| real(kind=8) | :: | alpha_area |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=8), | public | :: | a_angle | ||||
| integer(kind=4), | public | :: | a_index | ||||
| real(kind=8), | public | :: | a_x | ||||
| real(kind=8), | public | :: | a_y | ||||
| real(kind=8), | public | :: | ab_len | ||||
| real(kind=8), | public | :: | acos | ||||
| real(kind=8), | public | :: | alpha | ||||
| real(kind=8), | public | :: | area | ||||
| real(kind=8), | public | :: | area_total | ||||
| real(kind=8), | public | :: | b_angle | ||||
| integer(kind=4), | public | :: | b_index | ||||
| real(kind=8), | public | :: | b_x | ||||
| real(kind=8), | public | :: | b_y | ||||
| real(kind=8), | public | :: | bc_len | ||||
| real(kind=8), | public | :: | c_angle | ||||
| integer(kind=4), | public | :: | c_index | ||||
| real(kind=8), | public | :: | c_x | ||||
| real(kind=8), | public | :: | c_y | ||||
| real(kind=8), | public | :: | ca_len | ||||
| real(kind=8), | public, | parameter | :: | pi | = | 3.141592653589793D+00 | |
| integer(kind=4), | public | :: | triangle |